From 73dd5ad8827553c06de325f23c02e66fcbd669b2 Mon Sep 17 00:00:00 2001 From: Justin Burkett Date: Wed, 30 Nov 2016 19:09:20 -0500 Subject: [PATCH] Fixup last commit part 2 --- which-key.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/which-key.el b/which-key.el index c4cf96b5f97..81060112029 100644 --- a/which-key.el +++ b/which-key.el @@ -814,7 +814,7 @@ replacements are added to ;; normalize key sequences before adding (let ((key-seq (key-description (kbd key-sequence))) (replace (or (and (functionp replacement) replacement) - (cdr-safe replacement) + (car-safe replacement) replacement))) (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil) (if (functionp replace) replace (cons nil replace))) @@ -843,7 +843,7 @@ addition KEY-SEQUENCE REPLACEMENT pairs) to apply." ;; normalize key sequences before adding (let ((key-seq (key-description (kbd key-sequence))) (replace (or (and (functionp replacement) replacement) - (cdr-safe replacement) + (car-safe replacement) replacement))) (push (cons (cons (concat "\\`" (regexp-quote key-seq) "\\'") nil) (if (functionp replace) replace (cons nil replace))) -- 2.30.2